home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / newsgroups / misc.19951130-19960209 / 000254_news@columbia.edu _Mon Jan 8 03:02:14 1996.msg < prev    next >
Internet Message Format  |  2020-01-01  |  4KB
  1. Return-Path: news@columbia.edu
  2. Received: from apakabar.cc.columbia.edu (apakabar.cc.columbia.edu [128.59.35.159]) by watsun.cc.columbia.edu (8.7.3/8.7.3) with ESMTP id DAA02463 for <kermit.misc@watsun>; Mon, 8 Jan 1996 03:02:13 -0500 (EST)
  3. Received: (from news@localhost) by apakabar.cc.columbia.edu (8.7.3/8.7.3) id DAA24963 for kermit.misc@watsun; Mon, 8 Jan 1996 03:02:12 -0500 (EST)
  4. Path: news.columbia.edu!panix!bloom-beacon.mit.edu!nntpserver.pppl.gov!newsserver.jvnc.net!newsserver2.jvnc.net!howland.reston.ans.net!gatech!newsfeed.internetmci.com!news.msfc.nasa.gov!elroy.jpl.nasa.gov!usc!newshub.cts.com!news1.crl.com!nntp.crl.com!crl.crl.com!not-for-mail
  5. From: randyd@crl.com (Randy Ding)
  6. Newsgroups: comp.protocols.kermit.misc
  7. Subject: Re: setting up system to answer so one can use server commands
  8. Date: 7 Jan 1996 20:11:53 -0800
  9. Organization: CRL Network Services      (415) 705-6060  [Login: guest]
  10. Lines: 139
  11. Message-ID: <4cq5i9$h13@crl.crl.com>
  12. References: <4cq2pp$bd@news.flinet.com>
  13. NNTP-Posting-Host: crl.com
  14.  
  15. In article <4cq2pp$bd@news.flinet.com>,
  16. GG  <p007138b@pbfreenet.seflin.lib.fl.us> wrote:
  17. >Does anyone know, how do you initialize a remote kermit system to answer 
  18. >automatically?
  19. >
  20. I am including a scrap of my mscustom.ini from 3.14, this has never
  21. been tested on k95, probably won't work there but I have no idea
  22. what you are running either.
  23.  
  24. Randy.
  25. randyd@crl.com
  26. www.crl.com/~randyd
  27.  
  28. ; *******************************************************************
  29. ; macros for chat and auto-answer
  30. ; important: must do NOANSWER after you are done with ANSWER session
  31. ;            so that modem does not answer any following voice calls!
  32. define nochat -
  33.   set terminal newline off,-
  34.   set local-echo off,-
  35.   echo Chat Dissabled.
  36.  
  37. define chat -
  38.   set terminal newline on,-
  39.   set local-echo on,-
  40.   connect
  41.  
  42. ; 'dial =' inits the modem and makes it ready for communications
  43. ; and will hang up modem if connected
  44. ; enable auto-answer, takes one parameter for number of rings
  45.  
  46. define answer -
  47.   if = \v(argc) 1 fatal {How many rings?},-
  48.   if not numeric \%1 fatal {Argument must be number!},-
  49.   if > \%1 9 fatal {Range error!},-
  50.   if < \%1 1 fatal {Range error!},-
  51.   echo Auto-answer mode...,-
  52.   echo Will answer on \%1 rings.,-
  53.   dial =,-
  54.   if failure forward ansbad1,-
  55.   set input timeout proceed,-
  56.   set input echo off,-
  57.   output ATQ0V1\13,-
  58.   input 2 OK,-
  59.   if failure forward ansbad,-
  60.   output ats0=\%1\13,-
  61.   input 2 OK,-
  62.   if failure forward ansbad,-
  63.   set input echo on,-
  64.   echo Auto-Answer Enabled.  Remember to enter NOANSWER when done!,-
  65.   end 0,-
  66. :ansbad,-
  67.   echo Turn on or connect your modem!,-
  68. :ansbad1,-
  69.   set input echo on,-
  70.   end 1
  71.  
  72.  
  73. ; disable auto-answer
  74.  
  75. define noanswer -
  76.   set input timeout proceed,-
  77.   set input echo off,-
  78.   output ATQ0V1\13,-
  79.   input 2 OK,-
  80.   if success forward noansok,-
  81.   echo Wait 1 moment\44 your modem appears to be still connected.,-
  82.   output +++,-
  83.   input 2 OK,-
  84.   if failure forward noansbad,-
  85.   output ATQ0V1\13,-
  86.   input 2 OK,-
  87.   if failure forward noansbad,-
  88.   output ats0=0\13,-
  89.   input 2 OK,-
  90.   if failure forward noansbad,-
  91.   output ato\13,-
  92.   forward noansok1,-
  93. :noansok,-
  94.   output ats0=0\13,-
  95.   input 2 OK,-
  96.   if failure forward noansbad,-
  97. :noansok1,-
  98.   set input echo on,-
  99.   echo Auto-Answer Disabled.,-
  100.   end 0,-
  101. :noansbad,-
  102.   set input echo on,-
  103.   echo Turn on or connect your modem!,-
  104.   end 1
  105.  
  106.  
  107. ; dials a phone number, not intended to be used for calling another modem
  108.  
  109. define pcdial -
  110.   if < \v(argc) 2 forward pcbad1,-
  111.   set input timeout proceed,-
  112.   set input echo off,-
  113.   output ATQ0V1\13,-
  114.   input 2 OK,-
  115.   if failure forward pcbad2,-
  116.   echo Dialing \%1,-
  117.   assign \%2 \v(carrier),-
  118.   set carrier off,-
  119.   output ATDT\%1;\13,-
  120.   input 8 OK,-
  121.   if failure forward pcbad3,-
  122.   pause 8,-
  123.   output ATH0\13,-
  124.   set carrier \%2,-
  125.   end 0,-
  126. :pcbad1,-
  127.   echo Not enough parameters.,-
  128.   end 0,-
  129. :pcbad2,-
  130.   echo Turn on or connect your modem!,-
  131.   end 0,-
  132. :pcbad3,-
  133.   echo Turn on or connect your modem!,-
  134.   athangup,-
  135.   set carrier \%2,-
  136.   end 0
  137.  
  138.  
  139.  
  140. ; goto server mode, answer on %1 rings, exit at time %2 or after %2 seconds
  141.  
  142. define myserver -
  143.   do answer \%1,-
  144.   set server login randyd yourpasswordhere,-
  145.   server \%2,-
  146.   noanswer,-
  147.   quit
  148.  
  149.  
  150.  
  151.  
  152.  
  153.